Listin Gambas2
Création d'un programme en Gambas2 : un répertoire téléphonique pas à pas
Origine : http://listingambas.blogspot.com/2011/06/modulo-gestion-cancelar.htmlModule de gestion : Bouton Annuler
Quand
nous
sommes
en
édition
(var.etat = "Edition") et que nous cliquons sur ce
bouton, nous quittons l'édition et, sans
changer les valeurs des enregistrements, nous
effaçons les données du
formulaire .
PUBLIC SUB ButtonAnnuler_Click()
''Mettre
à
vide la propriété
.Text des textbox
PictureBoxphoto.Picture = Picture["icon:/96/gambas"]
TextBoxDNI .text = ""
TextBoxnom .text = ""
TextBoxprenoms .text = ""
TextBoxEntreprise .text = ""
TextBoxPoste .text = ""
TextBoxTelEntreprise .text = ""
TextBoxTelPerso .text = ""
TextBoxFax .text = ""
TextBoxMobilEntreprise .text = ""
TextBoxMobilPerso .text = ""
TextBoxWEB .text = ""
PictureBoxphoto.Picture = ""
TextBoxAdresse .text = ""
TextBoxComments .text = ""
TextBoxDate .text = ""
TextBoxmail .text = ""
' écriture des données saisies dans la grille
titre.remplir()
' setfocus mis en tête des données
TextBoxDNI.SetFocus
PictureBoxphoto.Picture = Picture["icon:/96/gambas"]
TextBoxDNI .text = ""
TextBoxnom .text = ""
TextBoxprenoms .text = ""
TextBoxEntreprise .text = ""
TextBoxPoste .text = ""
TextBoxTelEntreprise .text = ""
TextBoxTelPerso .text = ""
TextBoxFax .text = ""
TextBoxMobilEntreprise .text = ""
TextBoxMobilPerso .text = ""
TextBoxWEB .text = ""
PictureBoxphoto.Picture = ""
TextBoxAdresse .text = ""
TextBoxComments .text = ""
TextBoxDate .text = ""
TextBoxmail .text = ""
' écriture des données saisies dans la grille
titre.remplir()
' setfocus mis en tête des données
TextBoxDNI.SetFocus
var.etat = ""
'On rend la
grille à nouveau accessible
gridViewDonnees.enabled
= True
END
 Vous noterez
que du code est répété dans plusieurs
domaines, je
propose l'optimisation de ce code par le biais des sous-routines.
|